home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Presentations / Presentations ’94 / Timothy Knox / JBprolog folder / rel.p < prev    next >
Text File  |  1994-06-24  |  486b  |  35 lines
  1. female(anna).
  2. female(berta).
  3. female(celine).
  4. female(dalia).
  5.  
  6. male(albert).
  7. male(bertram).
  8. male(caesar).
  9. male(daniel).
  10.  
  11. parent(berta,albert).
  12. parent(bertram,albert).
  13. parent(berta,anna).
  14. parent(bertram,anna).
  15. parent(anna,caesar).
  16. parent(anna,celine).
  17. parent(anna,dalia).
  18. parent(anna,daniel).
  19.  
  20. father(X,Y) :- 
  21.   parent(X,Y), 
  22.   male(Y).
  23.  
  24. mother(X,Y) :- 
  25.   parent(X,Y), 
  26.   female(Y).
  27.  
  28. grandfather(X,Y) :- 
  29.   parent(X,Z), 
  30.   father(Z,Y).
  31.  
  32. grandmother(X,Y) :- 
  33.   parent(X,Z), 
  34.   mother(Z,Y).
  35.